inherited frmProdutos: TfrmProdutos
  Left = 850
  Top = 238
  Width = 877
  Height = 415
  Caption = 'Cadastro de Produtos'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 336
    Width = 861
  end
  inherited tbrBotoes: TsToolBar
    Width = 861
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 861
    Height = 271
    Align = alClient
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object sPanel1: TsPanel
        Left = 0
        Top = 0
        Width = 861
        Height = 271
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object sLabel1: TsLabel
          Left = 40
          Top = 64
          Width = 71
          Height = 13
          Caption = 'Nome Produto:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel2: TsLabel
          Left = 40
          Top = 32
          Width = 91
          Height = 13
          Caption = 'C'#243'digo do Produto:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel3: TsLabel
          Left = 680
          Top = 88
          Width = 66
          Height = 13
          Caption = 'Sigla Produto:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel6: TsLabel
          Left = 40
          Top = 111
          Width = 81
          Height = 13
          Caption = 'Unidade Medida:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel8: TsLabel
          Left = 424
          Top = 32
          Width = 84
          Height = 13
          Caption = 'C'#243'digo de Barras:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel9: TsLabel
          Left = 488
          Top = 111
          Width = 66
          Height = 13
          Caption = 'Peso Unit'#225'rio:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel15: TsLabel
          Left = 40
          Top = 88
          Width = 65
          Height = 13
          Caption = 'Classifica'#231#227'o:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel16: TsLabel
          Left = 648
          Top = 111
          Width = 77
          Height = 13
          Caption = 'Ordem Exibi'#231#227'o:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel7: TsLabel
          Left = 656
          Top = 32
          Width = 72
          Height = 13
          Caption = 'C'#243'digo Auxiliar:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object edtNomeProduto: TsEdit
          Left = 144
          Top = 60
          Width = 689
          Height = 21
          Hint = 'Digite o Nome do Produto'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 100
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object cedCodProduto: TsCurrencyEdit
          Tag = 2000
          Left = 144
          Top = 28
          Width = 80
          Height = 21
          Hint = 'Digite o C'#243'digo do Produto'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#######0'
        end
        object edtSigla: TsEdit
          Left = 752
          Top = 84
          Width = 81
          Height = 21
          Hint = 'Digite a Sigla do Produto'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 5
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object grpValores: TsGroupBox
          Left = 40
          Top = 142
          Width = 225
          Height = 105
          Caption = 'Valores (R$)'
          TabOrder = 13
          SkinData.SkinSection = 'GROUPBOX'
          object sLabel4: TsLabel
            Left = 16
            Top = 32
            Width = 39
            Height = 13
            Caption = 'Compra:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel5: TsLabel
            Left = 16
            Top = 56
            Width = 34
            Height = 13
            Caption = 'Venda:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object cedValorCompra: TsCurrencyEdit
            Left = 72
            Top = 28
            Width = 129
            Height = 21
            Hint = 'Digite o Valor de Compra'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 6
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = 'R$ ###,##0.00'
          end
          object cedValorVenda: TsCurrencyEdit
            Left = 72
            Top = 52
            Width = 129
            Height = 21
            Hint = 'Digite o Valor de Venda'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            MaxLength = 6
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = 'R$ ###,##0.00'
          end
        end
        object cedCodigoUnidade: TsCurrencyEdit
          Tag = 1000
          Left = 144
          Top = 107
          Width = 80
          Height = 21
          Hint = 'Digite o Unidade de Medida'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
          OnExit = cedCodigoUnidadeExit
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#######0'
        end
        object dblUnidadeMedida: TsDBLookupComboBox
          Left = 224
          Top = 107
          Width = 257
          Height = 21
          Hint = 'Selecione a Unidade de Medida'
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'CODIGO_UNIDADE'
          ListField = 'DESCRICAO_UNIDADE;SIGLA'
          ListSource = dtsUnidadeMedida
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
          OnCloseUp = dblUnidadeMedidaCloseUp
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'COMBOBOX'
        end
        object chkAtivo: TsCheckBox
          Left = 232
          Top = 29
          Width = 87
          Height = 19
          Caption = 'Ativo (S/N)?'
          Checked = True
          State = cbChecked
          TabOrder = 1
          SkinData.SkinSection = 'CHECKBOX'
          ImgChecked = 0
          ImgUnchecked = 0
        end
        object edtEan13: TsEdit
          Left = 512
          Top = 28
          Width = 129
          Height = 21
          Hint = 'Digite a Sigla do Produto'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 13
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object cedPeso: TsCurrencyEdit
          Left = 560
          Top = 107
          Width = 80
          Height = 21
          Hint = 'Digite o C'#243'digo do Produto'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 10
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 3
          DisplayFormat = '#,###,##0.000'
        end
        object grpImpostos: TsGroupBox
          Left = 280
          Top = 142
          Width = 329
          Height = 105
          Caption = 'Impostos'
          TabOrder = 14
          SkinData.SkinSection = 'GROUPBOX'
          object sLabel10: TsLabel
            Left = 16
            Top = 23
            Width = 29
            Height = 13
            Caption = 'ICMS:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel11: TsLabel
            Left = 16
            Top = 47
            Width = 16
            Height = 13
            Caption = 'IPI:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel12: TsLabel
            Left = 16
            Top = 71
            Width = 20
            Height = 13
            Caption = 'PIS:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel13: TsLabel
            Left = 152
            Top = 23
            Width = 42
            Height = 13
            Caption = 'COFINS:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel14: TsLabel
            Left = 152
            Top = 47
            Width = 46
            Height = 13
            Caption = 'ICMS ST:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object cedICMS: TsCurrencyEdit
            Left = 58
            Top = 19
            Width = 80
            Height = 21
            Hint = 'Digite o C'#243'digo do Produto'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 3
            DisplayFormat = '#,###,##0.000'
          end
          object cedIPI: TsCurrencyEdit
            Left = 58
            Top = 43
            Width = 80
            Height = 21
            Hint = 'Digite o C'#243'digo do Produto'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 3
            DisplayFormat = '#,###,##0.000'
          end
          object cedPIS: TsCurrencyEdit
            Left = 58
            Top = 67
            Width = 80
            Height = 21
            Hint = 'Digite o C'#243'digo do Produto'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 3
            DisplayFormat = '#,###,##0.000'
          end
          object cedCOFINS: TsCurrencyEdit
            Left = 200
            Top = 19
            Width = 80
            Height = 21
            Hint = 'Digite o C'#243'digo do Produto'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 3
            DisplayFormat = '#,###,##0.000'
          end
          object cedICMSST: TsCurrencyEdit
            Left = 200
            Top = 43
            Width = 80
            Height = 21
            Hint = 'Digite o C'#243'digo do Produto'
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DecimalPlaces = 3
            DisplayFormat = '#,###,##0.000'
          end
        end
        object edtClassificacao: TsEdit
          Left = 144
          Top = 84
          Width = 81
          Height = 21
          Hint = 'Digite a Sigla do Produto'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 5
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object cedOrdem: TsCurrencyEdit
          Tag = 1000
          Left = 728
          Top = 107
          Width = 80
          Height = 21
          Hint = 'Digite a Ordem de Exibi'#231#227'o'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 11
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#######0'
        end
        object btnBuscaOrdem: TsBitBtn
          Left = 808
          Top = 105
          Width = 27
          Height = 25
          Hint = 'Busca a Nova Ordem no Sistema'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 12
          OnClick = btnBuscaOrdemClick
          Glyph.Data = {
            36030000424D3603000000000000360000002800000010000000100000000100
            18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
            B78183B78183B78183B78183B78183B78183B78183B78183B78183B78183B781
            83B78183B78183FF00FFFF00FFFF00FFB78183FEEED4D3D8A9DFD9ABF5DBB4ED
            D6A7EED29FF1CF9AF0CF97F0CF98F0CF98F5D49AB78183FF00FFFF00FFFF00FF
            B78183FDEFD9AECE9046AD3889BE6936A72937A7287AB553D6C78AEECC97EECC
            97F3D199B78183FF00FFFF00FFFF00FFB48176FEF3E3CDD9AE20A31C029A0302
            9A03029A03029A0341A82EE6CA95EECC97F3D199B78183FF00FFFF00FFFF00FF
            B48176FFF7EBCCDCB324A51F029A032FA726BBCC8E8CBD680C9C0A90BB63EFCD
            99F3D198B78183FF00FFFF00FFFF00FFBA8E85FFFCF4CBDFBA17A116029A030C
            9D0C9AC57AF4DBBBB8C78887BF69F0D0A1F3D29BB78183FF00FFFF00FFFF00FF
            BA8E85FFFFFDE8EDDBB7D8A6AED399A9CF90AECE90F2DEC0F4DBBAB3D092F0D4
            A9F5D5A3B78183FF00FFFF00FFFF00FFCB9A82FFFFFFBAE2B7FBF3ECF7EEDFB1
            D39CAACF90ACCD8EB3CC8EEFDAB6F2D8B2F6D9ACB78183FF00FFFF00FFFF00FF
            CB9A82FFFFFF8DD28EC1E1BBFBF3EC9CCF8F0D9D0C029A0317A014F6DEC1F4DB
            B9F8DDB4B78183FF00FFFF00FFFF00FFDCA887FFFFFF99D69A0D9D0E93D18EC0
            DEB430AA2C029A0324A41FF6E2C8F7E1C2F0DAB7B78183FF00FFFF00FFFF00FF
            DCA887FFFFFFF6FBF645B546029A03029A03029A03029A0321A41EFCEFD9E6D9
            C4C6BCA9B78183FF00FFFF00FFFF00FFE3B18EFFFFFFFFFFFFE5F5E581CD813B
            B03B38AE378ECD8545AE3DAA8771B8857AB8857AB78183FF00FFFF00FFFF00FF
            E3B18EFFFFFFFFFFFFFFFFFFFFFFFFE8F6E8E7F5E5FFFEF9BEC6A8A2886CE8B2
            70ECA54AC58768FF00FFFF00FFFF00FFEDBD92FFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFE4D4D2B8857AFAC577CD9377FF00FFFF00FFFF00FFFF00FF
            EDBD92FCF7F4FCF7F3FBF6F3FBF6F3FAF5F3F9F5F3F9F5F3E1D0CEB8857ACF9B
            86FF00FFFF00FFFF00FFFF00FFFF00FFEDBD92DCA887DCA887DCA887DCA887DC
            A887DCA887DCA887DCA887B8857AFF00FFFF00FFFF00FFFF00FF}
          SkinData.SkinSection = 'BUTTON'
        end
        object chkTrocaSN: TsCheckBox
          Left = 320
          Top = 29
          Width = 91
          Height = 19
          Caption = 'Troca (S/N)?'
          TabOrder = 2
          SkinData.SkinSection = 'CHECKBOX'
          ImgChecked = 0
          ImgUnchecked = 0
        end
        object edtCodigoAuxiliar: TsEdit
          Left = 736
          Top = 28
          Width = 97
          Height = 21
          Hint = 'Digite a Sigla do Produto'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 13
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
      object sPanel2: TsPanel
        Left = 0
        Top = 0
        Width = 861
        Height = 271
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object dbgConsulta: TRxDBGrid
          Left = 1
          Top = 1
          Width = 859
          Height = 269
          Align = alClient
          DataSource = dtsConsulta
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = dbgConsultaDblClick
          OnTitleClick = dbgConsultaTitleClick
          Columns = <
            item
              Expanded = False
              FieldName = 'CODIGO_PRODUTO'
              Title.Caption = 'C'#243'd. Produto'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DESCRICAO_PRODUTO'
              Title.Caption = 'Produto'
              Width = 250
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SIGLA_PRODUTO'
              Title.Caption = 'Sigla'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'VALOR_COMPRA'
              Title.Caption = 'R$ Compra'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'VALOR_VENDA'
              Title.Caption = 'R$ Venda'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DESCRICAO_UNIDADE'
              Title.Caption = 'Unidade'
              Width = 96
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ATIVO_SN'
              Title.Caption = 'Ativo?'
              Width = 50
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLASSIFICACAO'
              Title.Caption = 'Classifica'#231#227'o'
              Width = 150
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ORDEM'
              Title.Caption = 'Ordem'
              Visible = True
            end>
        end
      end
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 688
    Top = 200
  end
  object qryUnidadeMedida: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT'
      '  CODIGO_UNIDADE,'
      '  DESCRICAO_UNIDADE,'
      '  SIGLA'
      ''
      'FROM'
      '  UNIDADE_MEDIDA'
      ''
      'ORDER BY'
      '  DESCRICAO_UNIDADE')
    Left = 512
    Top = 217
    object qryUnidadeMedidaCODIGO_UNIDADE: TAutoIncField
      FieldName = 'CODIGO_UNIDADE'
      ReadOnly = True
    end
    object qryUnidadeMedidaDESCRICAO_UNIDADE: TStringField
      DisplayWidth = 20
      FieldName = 'DESCRICAO_UNIDADE'
      Size = 100
    end
    object qryUnidadeMedidaSIGLA: TStringField
      DisplayWidth = 5
      FieldName = 'SIGLA'
      Size = 3
    end
  end
  object dtsUnidadeMedida: TDataSource
    DataSet = qryUnidadeMedida
    Left = 600
    Top = 201
  end
  object qryIncluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'DESCRICAO_PRODUTO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'SIGLA_PRODUTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 5
        Value = Null
      end
      item
        Name = 'VALOR_COMPRA'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_VENDA'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'CODIGO_UNIDADE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'ATIVO_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'LOGIN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_AUXILIAR'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'EAN13'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 13
        Value = Null
      end
      item
        Name = 'PESO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'ICMS'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'IPI'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'PIS'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'COFINS'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'ICMS_ST'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'CLASSIFICACAO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'ORDEM'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'TROCA_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO PRODUTO'
      '('
      '    DESCRICAO_PRODUTO,'
      '    SIGLA_PRODUTO,'
      '    VALOR_COMPRA,'
      '    VALOR_VENDA,'
      '    CODIGO_UNIDADE,'
      '    ATIVO_SN,'
      '    LOGIN,'
      '    CODIGO_AUXILIAR,'
      '    EAN13,'
      '    PESO,'
      '    ICMS,'
      '    IPI,'
      '    PIS,'
      '    COFINS,'
      '    ICMS_ST,'
      '    CLASSIFICACAO,'
      '    ORDEM,'
      '    TROCA_SN'
      ')'
      'VALUES'
      ''
      '('
      '    :DESCRICAO_PRODUTO,'
      '    :SIGLA_PRODUTO,'
      '    :VALOR_COMPRA,'
      '    :VALOR_VENDA,'
      '    :CODIGO_UNIDADE,'
      '    :ATIVO_SN,'
      '    :LOGIN,'
      '    :CODIGO_AUXILIAR,'
      '    :EAN13,'
      '    :PESO,'
      '    :ICMS,'
      '    :IPI,'
      '    :PIS,'
      '    :COFINS,'
      '    :ICMS_ST,'
      '    :CLASSIFICACAO,'
      '    :ORDEM,'
      '    :TROCA_SN'
      ')'
      ' '
      ' '
      ' '
      ' ')
    Left = 688
    Top = 9
  end
  object qryConsulta: TADOQuery
    Connection = frmPrincipal.cnn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT A.*,'
      '       B.DESCRICAO_UNIDADE'
      'FROM PRODUTO A,'
      '     UNIDADE_MEDIDA B'
      'WHERE A.CODIGO_UNIDADE *= B.CODIGO_UNIDADE'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 624
    Top = 9
    object qryConsultaCODIGO_PRODUTO: TAutoIncField
      FieldName = 'CODIGO_PRODUTO'
      ReadOnly = True
    end
    object qryConsultaDESCRICAO_PRODUTO: TStringField
      FieldName = 'DESCRICAO_PRODUTO'
      Size = 100
    end
    object qryConsultaSIGLA_PRODUTO: TStringField
      FieldName = 'SIGLA_PRODUTO'
      Size = 5
    end
    object qryConsultaVALOR_COMPRA: TFloatField
      FieldName = 'VALOR_COMPRA'
    end
    object qryConsultaVALOR_VENDA: TFloatField
      FieldName = 'VALOR_VENDA'
    end
    object qryConsultaCODIGO_UNIDADE: TIntegerField
      FieldName = 'CODIGO_UNIDADE'
    end
    object qryConsultaATIVO_SN: TStringField
      FieldName = 'ATIVO_SN'
    end
    object qryConsultaLOGIN: TStringField
      FieldName = 'LOGIN'
      Size = 50
    end
    object qryConsultaCODIGO_AUXILIAR: TStringField
      FieldName = 'CODIGO_AUXILIAR'
      Size = 50
    end
    object qryConsultaDESCRICAO_UNIDADE: TStringField
      FieldName = 'DESCRICAO_UNIDADE'
      Size = 100
    end
    object qryConsultaEAN13: TStringField
      FieldName = 'EAN13'
      Size = 13
    end
    object qryConsultaPESO: TFloatField
      FieldName = 'PESO'
    end
    object qryConsultaICMS: TFloatField
      FieldName = 'ICMS'
    end
    object qryConsultaIPI: TFloatField
      FieldName = 'IPI'
    end
    object qryConsultaPIS: TFloatField
      FieldName = 'PIS'
    end
    object qryConsultaCOFINS: TFloatField
      FieldName = 'COFINS'
    end
    object qryConsultaICMS_ST: TFloatField
      FieldName = 'ICMS_ST'
    end
    object qryConsultaCLASSIFICACAO: TStringField
      FieldName = 'CLASSIFICACAO'
      Size = 50
    end
    object qryConsultaORDEM: TIntegerField
      FieldName = 'ORDEM'
    end
    object qryConsultaTROCA_SN: TStringField
      FieldName = 'TROCA_SN'
      Size = 1
    end
  end
  object dtsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 384
    Top = 209
  end
  object qryAlterar: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'DESCRICAO_PRODUTO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'SIGLA_PRODUTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 5
        Value = Null
      end
      item
        Name = 'VALOR_COMPRA'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_VENDA'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'CODIGO_UNIDADE'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'ATIVO_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'LOGIN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CODIGO_AUXILIAR'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'EAN13'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 13
        Value = Null
      end
      item
        Name = 'PESO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'ICMS'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'IPI'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'PIS'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'COFINS'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'ICMS_ST'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'CLASSIFICACAO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'ORDEM'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'TROCA_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'CODIGO_PRODUTO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'UPDATE PRODUTO'
      'SET DESCRICAO_PRODUTO    = :DESCRICAO_PRODUTO,'
      '    SIGLA_PRODUTO        = :SIGLA_PRODUTO,'
      '    VALOR_COMPRA         = :VALOR_COMPRA,'
      '    VALOR_VENDA          = :VALOR_VENDA,'
      '    CODIGO_UNIDADE       = :CODIGO_UNIDADE,'
      '    ATIVO_SN             = :ATIVO_SN,'
      '    LOGIN                = :LOGIN,'
      '    CODIGO_AUXILIAR      = :CODIGO_AUXILIAR,'
      '    EAN13                = :EAN13,'
      '    PESO                 = :PESO,'
      '    ICMS                 = :ICMS,'
      '    IPI                  = :IPI,'
      '    PIS                  = :PIS,'
      '    COFINS               = :COFINS,'
      '    ICMS_ST              = :ICMS_ST,'
      '    CLASSIFICACAO        = :CLASSIFICACAO,'
      '    ORDEM                = :ORDEM,'
      '    TROCA_SN             = :TROCA_SN'
      'WHERE CODIGO_PRODUTO = :CODIGO_PRODUTO'
      ' '
      ' '
      ' '
      ' ')
    Left = 736
    Top = 9
  end
  object qryExcluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_PRODUTO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'DELETE FROM PRODUTO WHERE CODIGO_PRODUTO = :CODIGO_PRODUTO')
    Left = 784
    Top = 17
  end
end
